home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: 500 MB Amiga Software / 500 MB Amiga Software - Euber 130 - Amiga Games Disc & Mag.iso / userbox / publicdomain / mtr / epson-esc-ps2.rexx < prev    next >
OS/2 REXX Batch file  |  1995-01-22  |  4KB  |  95 lines
  1. /*
  2. $VER: Druckanpassung.rexx 1.10 (21.01.95)
  3.  *********************************************************************/
  4. /* Hilfsprogramm zur Anpassung unterschiedlicher Drucker an                */
  5. /* MTRechnung V2.25 oder höher                                                    */
  6. /* Autor: Manfred Tremmel                                                            */
  7. /* Sprache: ARexx                                                                        */
  8. /*********************************************************************/
  9.  
  10. /* Druckerabhängige Einstellungen                                    */
  11. ESC        = '1b'x;
  12. DruBez    = "EPSON_ESC_P2";                        /* Druckersprachenbezeich. */
  13. D_Z_kl    = ESC || "[0z";                        /* Zeilenabst. 1/8 Zoll        */
  14. D_Z_gr    = ESC || "[1z";                        /* Zeilenabst. 1/6 Zoll        */
  15. D_Schr    = ESC || "[3" || '22'x || "r" || ESC || '6b00'x;
  16.                                                         /* Standardschrift.            */
  17.                 /* Diese sollte in verschiedenen Größen verfügbar sein    */
  18. D_SStand    = ESC || "[5" || '22'x || "r" || ESC || '58241500'x;
  19.                                                         /* Standardgröße                */
  20. D_SGross    = ESC || "[5" || '22'x || "r" || ESC || '58724040'x;
  21.                                                         /* Große Schrift (PLZ)        */
  22. D_SKlein    = ESC || "[5" || '22'x || "r" || ESC || '58121000'x;
  23.                                                         /* Kleine Schrift (Abs.)    */
  24. D_Br10    = ESC || "[0w";                        /* Schriftbreite 10 cpi        */
  25. D_Br12    = ESC || "[2w";                        /* Schriftbreite 12 cpi        */
  26. D_Br15    = ESC || "[4w";                        /* Schriftbreite 15 cpi        */
  27. D_PEin    = ESC || "[2p";                        /* Proportional ein            */
  28. D_PAus    = ESC || "[1p";                        /* Proportional aus            */
  29. D_UEin    = ESC || "[4m";                        /* Unterstrichen ein            */
  30. D_UAus    = ESC || "[24m";                        /* Unterstrichen aus            */
  31. D_KEin    = ESC || "[3m";                        /* Kursiv ein                    */
  32. D_KAus    = ESC || "[23m";                        /* Kursiv aus                    */
  33. D_FEin    = ESC || "[1m";                        /* Fettdruck ein                */
  34. D_FAus    = ESC || "[22m";                        /* Fettdruck aus                */
  35. D_ZNorm    = ESC || "[3" || '22'x || "r" || ESC || '2000'x;
  36.                                                         /* normaler Zeichenabst.    */ 
  37. D_ZZAbst    = ESC || "[3" || '22'x || "r" || ESC || '2012'x;
  38.                                                         /* Zusätzl. Zeichenabst.    */
  39. D_CSchw    = ESC || "[39m";                        /* Druckfarbe Schwarz        */
  40. D_CMag    = ESC || "[35m";                        /* Druckfarbe Magenta        */
  41. D_CZyan    = ESC || "[36m";                        /* Druckfarbe Zyan            */
  42. D_CViol    = ESC || "[34m";                        /* Druckfarbe Violett        */
  43. D_CGelb    = ESC || "[33m";                        /* Druckfarbe Gelb            */
  44. D_CRot    = ESC || "[31m";                        /* Druckfarbe Rot                */
  45. D_CGruen    = ESC || "[32m";                        /* Druckfarbe Grün            */
  46. /* Drucker zurücksetzen (geschieht am Anfang jedes Drucks)                */
  47. D_Rueck    = ESC || "c" || ESC || "[2" || '22'x || "z" || D_CSchw || D_Schr || D_SStand || D_Br10 || D_Z_gr|| D_PAus || D_UAus || D_KAus || D_FAus;
  48. /* Druck beenden (am Ende jedes Ausdrucks!)                                    */
  49. D_Ende    = '0c'x;
  50. /* Ist eine Umrechnung der Umlaute nötig?                                        */
  51. D_UmRe    = "N";
  52. D_EingZ    = "";                                    /* Umzurechnende Zeichen        */
  53. D_AusgZ    = "";                                    /* Ausgangszeichen                */
  54.  
  55. file    = "Drucker/" || DruBez;                /* Druckerdateiname, in dem    */
  56. datei    = DruBez;                                /* die Daten gespeichert         */
  57. Suc  = OPEN(datei,file,'write');            /* werden öffnen!                    */
  58. IF Suc THEN                                        /* Wenn das geklappt hat,        */
  59.     DO;
  60.         WRITELN(datei,D_Z_kl);                /* schreib die Daten rein.        */
  61.         WRITELN(datei,D_Z_gr);
  62.         WRITELN(datei,D_Schr);
  63.         WRITELN(datei,D_SStand);
  64.         WRITELN(datei,D_SGross);
  65.         WRITELN(datei,D_SKlein);
  66.         WRITELN(datei,D_Br10);
  67.         WRITELN(datei,D_Br12);
  68.         WRITELN(datei,D_Br15);
  69.         WRITELN(datei,D_PEin);
  70.         WRITELN(datei,D_PAus);
  71.         WRITELN(datei,D_UEin);
  72.         WRITELN(datei,D_UAus);
  73.         WRITELN(datei,D_KEin);
  74.         WRITELN(datei,D_KAus);
  75.         WRITELN(datei,D_FEin);
  76.         WRITELN(datei,D_FAus);
  77.         WRITELN(datei,D_ZNorm);
  78.         WRITELN(datei,D_ZZAbst);
  79.         WRITELN(datei,D_CSchw);
  80.         WRITELN(datei,D_CMag);
  81.         WRITELN(datei,D_CZyan);
  82.         WRITELN(datei,D_CViol);
  83.         WRITELN(datei,D_CGelb);
  84.         WRITELN(datei,D_CRot);
  85.         WRITELN(datei,D_CGruen);
  86.         WRITELN(datei,D_Rueck);
  87.         WRITELN(datei,D_Ende);
  88.         WRITELN(datei,D_UmRe);
  89.         WRITELN(datei,D_EingZ);
  90.         WRITELN(datei,D_AusgZ);
  91.     END;
  92. CLOSE(datei);                                    /* Schließ die Datei                */
  93.  
  94. EXIT 0;                                            /* Das wars auch schon!            */
  95.